home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: MegaDisc
/
MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip
/
MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf
/
ARexx
/
Modular
/
Modular.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-08-19
|
1KB
|
35 lines
/* Modular Programming */
s = SetClip('inner_open','0') /* Needed by external functions */
s = SetClip('gadno','0')
call ActiveLibs.mod()
call ConWin.mod(50,50,530,140)
call ArpWin.mod(10,10,620,200)
call OpenPort(PO) /* Make that Port available here */
call GadSet.mod(9,30,20,16) /* ngads, x, y, ystep */
call Labels.mod(9,70,27,16) /* nlines, x, y, ystep */
do forever
call waitpkt(PO) ; p = getpkt(PO)
if p ~== NULL() then do
i = getarg(p) ; t = reply(p, 0)
if i = 'CLOSEWINDOW' then call CloseWin()
parse var i class n
if class = 'GADGETUP' then
if n = 9 then call CloseWin() ; else call Gadget.mod(n)
if class = 'MOUSEBUTTONS' then call Mouse()
end
end
exit
CloseWin:
if GetClip('inner_open') = '1' then call InnerWin.mod()
CloseWindow(HO) ; exit ; end
return
Mouse:
parse var i class x y
call pat(500,7,' ') ; call pat(500,7,x y)
return
pat: call Move(HO,arg(1),arg(2)) ; call Text(HO,arg(3)) ; return